﻿Module Module1

    Sub Main()
        Dim d As DIEM
        Dim B As DIEM
        B = New DIEM()
        d = New DIEM()
        d.nhap(d)
        d.xuat(d)
        d.xuatx(d)
        d.xuaty(d)
        d.nhapx(d)
        d.xuat(d)
        d.nhapy(d)
        d.xuat(d)
        B.nhap(B)
        B.xuat(B)
        d.TINHTRUCX(d, B)
        d.TINHTRUCY(d, B)
        d.TINHKC2DIEM(d, B)

    End Sub

End Module
